COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00003 ENDMK
C⊗;
BEGIN "TEST"
	REQUIRE "GEOMES.HDR[SAI,BGB]" SOURCE_FILE;
	INTEGER B1,B2;
	DEFINE π = "3.1415";
	MKUNIV;

	B1 ← MKCUBE(2.0,2.0,2.0);
	B2 ← MKCUBE(3.5,2.1,1.1);
	TRANSL(B1,-3,1,-48);TRANSL(B2,3,-1,-48);GEODPY;
	WHILE TRUE DO
BEGIN
	ROTATE(-B1,π/20,π/10,π/10);
	ROTATE(-B2,π/30,π/40,π/25);
	TRANSL(B1,0,0,.5);TRANSL(B2,0,0,.5);
	GEODPY;
END;
END;